#!/usr/bin/perl

use Bio::DB::EUtilities;
 
my $id      = $ARGV[0];
  
my $factory = Bio::DB::EUtilities->new(-eutil => 'esummary',
                                       -db    => 'taxonomy',
                                       -id    => $id );
  
my ($name)  = $factory->next_DocSum->get_contents_by_name('ScientificName');
    
print "$name\n";
